unit depo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, Wwdbigrd, Wwdbgrid, wwSpeedButton, wwDBNavigator, ExtCtrls,
  wwclearpanel, StdCtrls, Buttons;

type
  Tdepof = class(TForm)
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1Last: TwwNavButton;
    wwDBNavigator1Insert: TwwNavButton;
    wwDBNavigator1Delete: TwwNavButton;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    wwDBGrid1: TwwDBGrid;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  depof: Tdepof;

implementation

uses data;

{$R *.DFM}

procedure Tdepof.FormShow(Sender: TObject);
begin
  dm.spdepo.Close;
  dm.spdepo.Parameters.ParamByName('@depokod').value:=0;
  dm.spdepo.open;
end;

procedure Tdepof.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.spdepo.Close;
end;

end.
